home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / clipblock.fpl < prev    next >
Text File  |  1995-07-18  |  807b  |  32 lines
  1.  
  2. export int BlockPasteGet_clip(int blockid)
  3. {
  4.   if (!blockid)
  5.     StringToBlock(ClipToString(0));
  6.   return(0);
  7. }
  8. export int BlockGet_clip(int blockid, int x1, int y1, int x2, int y2)
  9. {
  10.   if (!blockid)
  11.     StringToBlock(ClipToString(0));
  12.   return(0);
  13. }
  14.  
  15. export int BlockStore_clip(int blockid, int x1, int y1, int x2, int y2)
  16. {
  17.   if (!blockid)
  18.     StringToClip(0, GetBlock());
  19.   return(0);
  20. }
  21.  
  22. Hook("BlockPaste", "BlockPasteGet_clip", "!block_exist");
  23. Hook("BlockPasteRect", "BlockPasteGet_clip", "!block_exist");
  24.  
  25. Hook("BlockCopyAppend", "BlockGet_clip", "!block_exist");
  26. HookPast("BlockCopyAppend", "BlockStore_clip");
  27. Hook("BlockCutAppend", "BlockGet_clip", "!block_exist");
  28. HookPast("BlockCutAppend", "BlockStore_clip");
  29.  
  30. HookPast("BlockCopy", "BlockStore_clip");
  31. HookPast("BlockCut", "BlockStore_clip");
  32.